home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 22 / 2 / DISK2220.ZIP / SCREDIT2.EXE / SCRDEMO.C < prev    next >
C/C++ Source or Header  |  1991-01-05  |  27KB  |  949 lines
  1. /*
  2.  ********************************************************************
  3.  ScrDemo.C is provide to supply you with a supply of programming
  4.  examples for using Turbo ScrEdit procedures. Feel free to use any
  5.  of the procedures in this file that you wish in your programs.
  6.  
  7.  To compile and run this program you must perform the following steps.
  8.  
  9.  *** THE POP UP WINDOWS AND MOUSE OPTIONS WILL NOT WORK IF YOU ***
  10.  *** TRY TO RUN THEM FROM INSIDE THE TURBO C PROGRAMMING       ***
  11.  *** ENVIRONMENT. EXIT TO DOS TO RUN SCRDEMO AND THEN YOU CAN  ***
  12.  *** RUN THE POP UP WINDOWS AND MOUSE DEMOS.                   ***
  13.  
  14.  First you must open a project file with the following lines 
  15.  
  16.     Turbo C 2.0
  17.          Create a project file that contains the following lines
  18.  
  19.          ScrDemo.C
  20.          ScrEditL.Lib
  21.  
  22.     Turbo C ++
  23.          Open a project file with the following lines (The names
  24.          listed below will also be changed as listed above.)
  25.  
  26.      Set (P)ROJECT/(O)PEN PROJECT/(L)OAD PROJECT FILE to "ScrDemo.prj"
  27.      press (INSert) and type "ScrDemo.C"
  28.      press (INSert) and type "ScrEditC.Lib"
  29.  
  30.  
  31.      Set (P)ROJECT/(O)PEN PROJECT/(L)OAD PROJECT FILE to "ScrDemo.prj"
  32.      press (INSert) and type "ScrDemo.C"
  33.      press (INSert) and type "ScrEditC.Lib"
  34.  
  35.  Next be sure that you..
  36.         Set COMPILER/(P)RIMARY C FILE to ScrDemo.C
  37.  
  38.     Set OPTIONS/DIRECTORIES/(I)NCLUDE DIRECTORIES to include the
  39.         directory where you have stored "ScrEditC.H".
  40.  
  41.     Set OPTIONS/DIRECTORIES/(L)IBRARY DIRECTORIES to include the
  42.             directory where you have stored "ScrEditC.Lib".
  43.     
  44.     Set OPTIONS/COMPILER/(C)ODE GENERATION (C)OMPACT
  45.  
  46.  After you performed the steps listed above this program will
  47.  compile and run if the screen file and screen buffers are in the
  48.  current directory.
  49.  ********************************************************************
  50. */
  51. #if defined (__TINY__) || defined (__SMALL__) 
  52.    #error "This program requires COMPACT, LARGE, or HUGE memory model."
  53. #endif
  54.  
  55. #include <stdio.h>
  56. #include <process.h>
  57. #include <conio.h>
  58. #include <string.h>
  59. #include <ctype.h>
  60. #include <errno.h>
  61. #include <alloc.h>
  62. #include <mem.h>
  63. #include <dos.h>
  64. #include "scredit.h"
  65.  
  66. /*
  67. Remember to use Turbo ScrEdit to compile the screens in ScrDemo.Scr before you
  68. try to compile and run this program. See Turbo ScrEdit Tutor for instructions.
  69. */
  70.  
  71. #include "SCRDEMO.001"
  72. #include "SCRDEMO.003"
  73. #include "SCRDEMO.005"
  74.  
  75. int Result,
  76.     Tr,Tc,Br,Bc,
  77.     Option,
  78.     Screen_Mode,
  79.     Cursor_Position;
  80.  
  81. char Name[35],
  82.      Address_a[35],
  83.      Address_b[35],
  84.      City[21],
  85.      State[3],
  86.      ZipCode[10],
  87.      Phone[15],
  88.      Ssn[12];
  89. double Gross;
  90.  
  91.  
  92.  
  93. /*****************************
  94.  
  95. MENU OPTION 1 (Example data entry screen)
  96.  
  97. Section 2 of Turbo ScrEdit Tutor Describes this portion of code
  98.  
  99. *****************************/
  100.  
  101.  
  102.  
  103. void EnterRecords()
  104. {
  105. if (s_enterastab)
  106.   strcpy(Dupe_Fields_buf.Key," F10 ");
  107. else
  108.   strcpy(Dupe_Fields_buf.Key,"Enter");
  109.  
  110. Dupe_Fields_buf.EB = s_errorbg;
  111. Dupe_Fields_buf.EF = s_errorfg;
  112. Dupe_Fields_buf.HB = s_helpbg;
  113. Dupe_Fields_buf.HF = s_helpfg;
  114. Dupe_Fields_buf.UB = s_userbg;
  115. Dupe_Fields_buf.UF = s_userfg;
  116. if (s_usersound)    
  117.    strcpy(Dupe_Fields_buf.SO,"On");
  118. else 
  119.    strcpy(Dupe_Fields_buf.SO,"Off");
  120. if (s_autovalidate) 
  121.    strcpy(Dupe_Fields_buf.AV,"On"); 
  122. else 
  123.    strcpy(Dupe_Fields_buf.AV,"Off");
  124. if (s_autohelp)
  125.    strcpy(Dupe_Fields_buf.AH,"On");
  126. else 
  127.    strcpy(Dupe_Fields_buf.AH,"Off");
  128. if (s_clearifnotrightarrow)
  129.    strcpy(Dupe_Fields_buf.CF,"On");
  130. else 
  131.    strcpy(Dupe_Fields_buf.CF,"Off");
  132. if (s_tabatendoffield)
  133.    strcpy(Dupe_Fields_buf.TA,"On");
  134. else
  135.    strcpy(Dupe_Fields_buf.TA,"Off");
  136. if (s_enterastab)
  137.    {
  138.    strcpy(Dupe_Fields_buf.Key,"F10");
  139.    strcpy(Dupe_Fields_buf.EAT,"On");
  140.    strcpy(Dupe_Fields_buf.EAF,"36");
  141.    s_enterafterfield = 36;
  142.    }
  143. else
  144.    {
  145.    strcpy(Dupe_Fields_buf.Key,"Enter");
  146.    strcpy(Dupe_Fields_buf.EAT,"Off");  
  147.    strcpy(Dupe_Fields_buf.EAF,""); 
  148.    s_enterafterfield = 0;
  149.    }
  150.  
  151. s_readscreen();
  152.  
  153. if ((s_alt)&&((s_ch=='A')||(s_ch=='a')))
  154.   {
  155.   switch (s_cursor)
  156.      {
  157.      case S_OFF
  158.        : {s_cursor=S_BOLD;break;}
  159.      case S_BOLD
  160.        : {s_cursor=S_NORMAL;break;}
  161.      case S_NORMAL
  162.        : {s_cursor=S_INVERSENORMAL;break;}
  163.      case S_INVERSENORMAL
  164.        : {s_cursor=S_INVERSEBOLD;break;}
  165.      default :
  166.          s_cursor=S_OFF;
  167.      }
  168.   }
  169. if (s_alt)
  170.   {
  171.   if  ((s_f1)||(s_f2))
  172.     {
  173.     if  (s_f1) s_errorbg++;
  174.     if  (s_f2) s_errorfg++;
  175.     if  (s_errorbg > 7)  s_errorbg = 0;
  176.     if  (s_errorfg > 15) s_errorfg = 0;
  177.     strcpy(s_errormsg,"Change colors of ERROR messages from VALIDATE procedures.");
  178.     }
  179.   if  ((s_f3)||(s_f4))
  180.     {
  181.     if  (s_f3) s_helpbg++;
  182.     if  (s_f4) s_helpfg++;
  183.     if  (s_helpbg > 7)  s_helpbg = 0;
  184.     if  (s_helpfg > 15) s_helpfg = 0;
  185.     strcpy(s_autohelpmsg,"Change Colors of HELP messages accessed by auto help or '?'");
  186.     }
  187.   if  ((s_f5)||(s_f6))
  188.     {
  189.     if  (s_f5) s_userbg++;
  190.     if  (s_f6) s_userfg++;
  191.     if  (s_userbg > 7)  s_userbg = 0;
  192.     if  (s_userfg > 15) s_userfg = 0;
  193.     strcpy(s_usermsg,"Specify the color attributes for you customer messages.");
  194.     }
  195.   }
  196.  
  197. if  (s_ctrl)
  198.   {
  199.   if  (s_f1)
  200.       {
  201.       if  (s_helpsound==1)
  202.     {
  203.     s_helpsound =0;
  204.     s_errorsound=0;
  205.     s_usersound =0;
  206.     }
  207.       else
  208.     {
  209.     s_helpsound =1;
  210.     s_errorsound=1;
  211.     s_usersound =1;
  212.     }
  213.       }
  214.  
  215.   if  (s_f2)
  216.       s_autohelp = (s_autohelp==1)? 0:1;
  217.  
  218.   if  (s_f3)
  219.       s_autovalidate = (s_autovalidate==1)? 0:1;
  220.  
  221.   if  (s_f4)
  222.       s_enterastab = (s_enterastab==1)? 0:1;
  223.  
  224.   if  (s_f5)   
  225.       s_tabatendoffield = (s_tabatendoffield==1)? 0:1;
  226.  
  227.   if  (s_f6)
  228.       s_clearifnotrightarrow = (s_clearifnotrightarrow==1)? 0:1;
  229.   }
  230.  
  231. if ((!s_alt)&&(!s_ctrl))
  232.   {
  233.   if  (s_f1)
  234.       {
  235.       if (!s_isdupe(s_prevfield))
  236.       {
  237.       s_setdupe(s_prevfield-1);
  238.       s_setdupe(s_prevfield+1);
  239.       s_setdupe(s_prevfield);
  240.       if (s_isdupe(s_prevfield))
  241.          switch (s_prevfield)
  242.            {
  243.            case 12 : {strcpy(Dupe_Fields_buf.a,"[");
  244.               strcpy(Dupe_Fields_buf.r,"]");break;}
  245.            case 15 : {strcpy(Dupe_Fields_buf.b,"[");
  246.               strcpy(Dupe_Fields_buf.s,"]");break;}
  247.            case 18 : {strcpy(Dupe_Fields_buf.c,"[");
  248.               strcpy(Dupe_Fields_buf.t,"]");break;}
  249.            case 21 : {strcpy(Dupe_Fields_buf.d,"[");
  250.               strcpy(Dupe_Fields_buf.u,"]");break;}
  251.            case 24 : {strcpy(Dupe_Fields_buf.e,"[");
  252.               strcpy(Dupe_Fields_buf.v,"]");break;}
  253.            case 27 : {strcpy(Dupe_Fields_buf.f,"[");
  254.               strcpy(Dupe_Fields_buf.w,"]");break;}
  255.            case 30 : {strcpy(Dupe_Fields_buf.g,"[");
  256.               strcpy(Dupe_Fields_buf.x,"]");break;}
  257.            case 33 : {strcpy(Dupe_Fields_buf.h,"[");
  258.               strcpy(Dupe_Fields_buf.y,"]");break;}
  259.            case 36 : {strcpy(Dupe_Fields_buf.i,"[");
  260.               strcpy(Dupe_Fields_buf.z,"]");break;}
  261.            }
  262.       }
  263.       else
  264.       {
  265.       s_resetdupe(s_prevfield-1);
  266.       s_resetdupe(s_prevfield+1);
  267.       s_resetdupe(s_prevfield);
  268.       if (!s_isdupe(s_prevfield))
  269.          switch (s_prevfield)
  270.            {
  271.            case 12 : {Dupe_Fields_buf.a[0]=0;Dupe_Fields_buf.r[0]=0;break;}
  272.            case 15 : {Dupe_Fields_buf.b[0]=0;Dupe_Fields_buf.s[0]=0;break;}
  273.            case 18 : {Dupe_Fields_buf.c[0]=0;Dupe_Fields_buf.t[0]=0;break;}
  274.            case 21 : {Dupe_Fields_buf.d[0]=0;Dupe_Fields_buf.u[0]=0;break;}
  275.            case 24 : {Dupe_Fields_buf.e[0]=0;Dupe_Fields_buf.v[0]=0;break;}
  276.            case 27 : {Dupe_Fields_buf.f[0]=0;Dupe_Fields_buf.w[0]=0;break;}
  277.            case 31 : {Dupe_Fields_buf.g[0]=0;Dupe_Fields_buf.x[0]=0;break;}
  278.            case 32 : {Dupe_Fields_buf.h[0]=0;Dupe_Fields_buf.y[0]=0;break;}
  279.            case 36 : {Dupe_Fields_buf.i[0]=0;Dupe_Fields_buf.z[0]=0;break;}
  280.            }
  281.       }
  282.       }
  283.  
  284.   if  (s_f2)
  285.       {
  286.       s_cleardupes();
  287.       setmem(Dupe_Fields_buf.a,2,0);
  288.       setmem(Dupe_Fields_buf.b,2,0);
  289.       setmem(Dupe_Fields_buf.c,2,0);
  290.       setmem(Dupe_Fields_buf.d,2,0);
  291.       setmem(Dupe_Fields_buf.e,2,0);
  292.       setmem(Dupe_Fields_buf.f,2,0);
  293.       setmem(Dupe_Fields_buf.g,2,0);
  294.       setmem(Dupe_Fields_buf.h,2,0);
  295.       setmem(Dupe_Fields_buf.i,2,0);
  296.       setmem(Dupe_Fields_buf.r,2,0);
  297.       setmem(Dupe_Fields_buf.s,2,0);
  298.       setmem(Dupe_Fields_buf.t,2,0);
  299.       setmem(Dupe_Fields_buf.u,2,0);
  300.       setmem(Dupe_Fields_buf.v,2,0);
  301.       setmem(Dupe_Fields_buf.w,2,0);
  302.       setmem(Dupe_Fields_buf.x,2,0);
  303.       setmem(Dupe_Fields_buf.y,2,0);
  304.       setmem(Dupe_Fields_buf.z,2,0);
  305.       }
  306.  
  307.   if  (s_f6)
  308.       if  (Dupe_Fields_buf.Name1[0]>0)
  309.     {
  310.     strcpy(Dupe_Fields_buf.Name2,Dupe_Fields_buf.Name1);
  311.     strcpy(Dupe_Fields_buf.Address2_a,Dupe_Fields_buf.Address1_a);
  312.     strcpy(Dupe_Fields_buf.Address2_b,Dupe_Fields_buf.Address1_b);
  313.     strcpy(Dupe_Fields_buf.City2,Dupe_Fields_buf.City1);
  314.     strcpy(Dupe_Fields_buf.S2,Dupe_Fields_buf.S1);
  315.     strcpy(Dupe_Fields_buf.Zip2,Dupe_Fields_buf.Zip1);
  316.     strcpy(Dupe_Fields_buf.Phone2,Dupe_Fields_buf.Phone1);
  317.     strcpy(Dupe_Fields_buf.Ssn2,Dupe_Fields_buf.Ssn1);
  318.     Dupe_Fields_buf.Gross2=Dupe_Fields_buf.Gross1;
  319.     setmem(Dupe_Fields_buf.Name1,35,0);
  320.     setmem(Dupe_Fields_buf.Address1_a,35,0);
  321.     setmem(Dupe_Fields_buf.Address1_b,35,0);
  322.     setmem(Dupe_Fields_buf.City1,21,0);
  323.     setmem(Dupe_Fields_buf.S1,3,0);
  324.     setmem(Dupe_Fields_buf.Zip1,10,0);
  325.     setmem(Dupe_Fields_buf.Phone1,15,0);
  326.     setmem(Dupe_Fields_buf.Ssn1,12,0);
  327.     Dupe_Fields_buf.Gross1 = 0;
  328.     s_point = 8;
  329.     }
  330.       else
  331.     strcpy(s_usermsg," No record entered to Edit..");
  332.     }
  333.  
  334. if  ((s_enterastab)&&(s_f10))
  335.     {
  336.     s_screenvalid = 1;
  337.     s_validatescreen();
  338.     if (!s_screenvalid) s_resetkeyflags();
  339.     }
  340. if  (((!s_enterastab)&&(s_enter))||((s_enterastab)&&(s_f10)))
  341.     {
  342.     strcpy(Name,Dupe_Fields_buf.Name2);
  343.     strcpy(Address_a,Dupe_Fields_buf.Address2_a);
  344.     strcpy(Address_b,Dupe_Fields_buf.Address2_b);
  345.     strcpy(City,Dupe_Fields_buf.City2);
  346.     strcpy(State,Dupe_Fields_buf.S2);
  347.     strcpy(ZipCode,Dupe_Fields_buf.Zip2);
  348.     strcpy(Phone,Dupe_Fields_buf.Phone2);
  349.     strcpy(Ssn,Dupe_Fields_buf.Ssn2);
  350.     Gross=Dupe_Fields_buf.Gross2;
  351.     s_clearscreen(1);
  352.     strcpy(Dupe_Fields_buf.Name1,Name);
  353.     strcpy(Dupe_Fields_buf.Address1_a,Address_a);
  354.     strcpy(Dupe_Fields_buf.Address1_b,Address_b);
  355.     strcpy(Dupe_Fields_buf.City1,City);
  356.     strcpy(Dupe_Fields_buf.S1,State);
  357.     strcpy(Dupe_Fields_buf.Zip1,ZipCode);
  358.     strcpy(Dupe_Fields_buf.Phone1,Phone);
  359.     strcpy(Dupe_Fields_buf.Ssn1,Ssn);
  360.     Dupe_Fields_buf.Gross1=Gross;
  361.     s_point = 8;
  362.     }
  363. }
  364.  
  365.  
  366.  
  367.  
  368. void RecordDemo()
  369. {
  370. Name[0]      =0;
  371. Address_a[0] =0;
  372. Address_b[0] =0;
  373. City[0]      =0;
  374. State[0]     =0;
  375. ZipCode[0]   =0;
  376. Phone[0]     =0;
  377. Ssn[0]         =0;
  378. Gross        =0;
  379. s_point      = -1;
  380. s_enterastab           = 0;
  381. s_clearifnotrightarrow = 0;
  382. s_autohelp             = 0;
  383. s_autovalidate         = 0;
  384. s_enterafterfield      = 0;
  385. s_loadscreen("Dupe_Fields");
  386. s_clearscreen(1);
  387. while (!s_esc)
  388.     {
  389.     EnterRecords();
  390.     }
  391. s_clearifnotrightarrow = 0;
  392. s_tabatendoffield      = 0;
  393. s_enterastab = 0;
  394. s_autohelp   = 0;
  395. s_autovalidate = 0;
  396. s_errorsound = 1;
  397. s_helpsound  = 1;
  398. s_usersound  = 1;
  399. s_setdisplayoff(1);
  400. s_cursor = S_NORMAL;
  401. }
  402.  
  403.  
  404.  
  405.  
  406.  
  407.  
  408.  
  409.  
  410.  
  411.  
  412.  
  413.  
  414.  
  415. /*****************************
  416.  
  417. MENU OPTION 3  (Customizing Screen Colors)
  418.  
  419. Section 4 of Turbo ScrEdit Tutor Describes this portion of code
  420.  
  421. *****************************/
  422.  
  423. void ChangeColors()
  424. {
  425. int X,Y;
  426. Color_Demo_buf.F1=2.0;
  427. Color_Demo_buf.A =0.0;
  428. Color_Demo_buf.F2=0.0;
  429. Color_Demo_buf.B =5.0;
  430. Color_Demo_buf.F3=15.0;
  431. Color_Demo_buf.C =0.0;
  432. Color_Demo_buf.F4=14.0;
  433. Color_Demo_buf.D =0.0;
  434. Color_Demo_buf.F5=3.0;
  435. Color_Demo_buf.E =0;
  436. Color_Demo_buf.F6=2.0;
  437. Color_Demo_buf.F =0.0;
  438. Color_Demo_buf.F7=2.0;
  439. Color_Demo_buf.G =0.0;
  440. Color_Demo_buf.F8=15.0;
  441. Color_Demo_buf.H =0.0;
  442. Color_Demo_buf.F9=2.0;
  443. Color_Demo_buf.I =0.0;
  444.  
  445. while (!s_esc)
  446.   {
  447.  
  448.   s_readscreen();
  449.  
  450.   /* Text */
  451.   s_changescreencolor(
  452.     0,(int)Color_Demo_buf.A,(int)Color_Demo_buf.F1, 1,24, 1,80);
  453.  
  454.   /* double line around logo */
  455.   s_changescreencolor(
  456.     2,(int)Color_Demo_buf.D,(int)Color_Demo_buf.F4, 1,11, 1,80);
  457.  
  458.   /* Logo */
  459.   s_changescreencolor(
  460.     2,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 2, 9,10,69);
  461.  
  462.   /* Fill in logo letters */
  463.   s_changescreencolor(
  464.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 2, 8,11,11);
  465.   s_changescreencolor(
  466.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 2, 8,18,18);
  467.   s_changescreencolor(
  468.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 5, 8,22,22);
  469.   s_changescreencolor(
  470.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 5, 8,27,27);
  471.   s_changescreencolor(
  472.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 5, 8,31,31);
  473.   s_changescreencolor(
  474.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 7, 8,35,35);
  475.   s_changescreencolor(
  476.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 5, 6,36,36);
  477.   s_changescreencolor(
  478.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 2, 8,40,40);
  479.   s_changescreencolor(
  480.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 3, 3,47,47);
  481.   s_changescreencolor(
  482.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 8, 8,47,47);
  483.   s_changescreencolor(
  484.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 5, 8,51,51);
  485.   s_changescreencolor(
  486.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 2, 8,56,56);
  487.   s_changescreencolor(
  488.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 6, 8,60,60);
  489.   s_changescreencolor(
  490.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 2, 8,64,64);
  491.  
  492.   /* other logo text */
  493.   s_changescreencolor(
  494.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 6, 6, 3, 7);
  495.   s_changescreencolor(
  496.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 2, 2,21,24);
  497.   s_changescreencolor(
  498.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 5, 5,67,78);
  499.   s_changescreencolor(
  500.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 6, 6,69,76);
  501.   s_changescreencolor(
  502.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 7, 7,70,74);
  503.   s_changescreencolor(
  504.     0,(int)Color_Demo_buf.B,(int)Color_Demo_buf.F2, 8, 9,67,79);
  505.  
  506.   /* Copyright Notice */
  507.   s_changescreencolor(
  508.     0,(int)Color_Demo_buf.C,(int)Color_Demo_buf.F3,10,10,27,57);
  509.  
  510.   /* Version Number */
  511.   s_changescreencolor(
  512.     0,(int)Color_Demo_buf.E,(int)Color_Demo_buf.F5, 3, 3,71,75);
  513.  
  514.   /* text in configure box */
  515.   s_changescreencolor(
  516.     0,(int)Color_Demo_buf.G,(int)Color_Demo_buf.F7,13,23,18,64);
  517.  
  518.   /* single line box */
  519.   s_changescreencolor(
  520.     1,(int)Color_Demo_buf.F,(int)Color_Demo_buf.F6,13,24,17,65);
  521.  
  522.   X = 0;
  523.   while (X < 18)
  524.     {
  525.     s_changefieldcolor(
  526.       X,1,(int)Color_Demo_buf.H,(int)Color_Demo_buf.F8);
  527.     s_changefieldcolor(
  528.       X,2,(int)Color_Demo_buf.I,(int)Color_Demo_buf.F9);
  529.     X++;
  530.     }
  531.  
  532.   s_refreshscreen();
  533.   }
  534. }
  535.  
  536.  
  537.  
  538.  
  539.  
  540.  
  541.  
  542.  
  543.  
  544.  
  545.  
  546.  
  547.  
  548. /*****************************
  549.  
  550. MENU OPTION 9 (Mixed ScrEdit)
  551.  
  552. Section 4 of Turbo ScrEdit Tutor Describes this portion of code
  553.  
  554. *****************************/
  555.  
  556. void Back_To_Turbo_C_Land()
  557. {
  558. char Response[11];
  559. Response[0] = 0;
  560.  
  561. textbackground(BLACK);
  562. textcolor     (YELLOW);
  563.  
  564. while (strcmp("RETURN",Response)!= 0)
  565.     {
  566.     clrscr();
  567.     cprintf("This is regular 'C' code now.\r\n\r\n");
  568.     cprintf("You can do anything now that you want to, use any \r\n");
  569.     cprintf("programming statement that you wish to.  When you \r\n");
  570.     cprintf("are ready to resume with Turbo ScrEdit just return \r\n");
  571.     cprintf("and the screen will be reloaded and you will resume \r\n");
  572.     cprintf("at the point where you left the screen.\r\n\r\n");
  573.     cprintf("Type 'RETURN' in upper case to end this example...");
  574.     Response[0]=6;
  575.     cscanf("%s",Response);
  576.     }
  577. textbackground(BLACK);
  578. textcolor     (GREEN);
  579. }
  580.  
  581.  
  582.  
  583.  
  584.  
  585.  
  586.  
  587.  
  588.  
  589. /*****************************
  590.  
  591. START OF MAIN MENU SCREEN PROCEDURES
  592.  
  593. Section 1 of Turbo ScrEdit Tutor Describes this portion of code
  594.  
  595. *****************************/
  596.  
  597. void ProcessScreen()
  598. {
  599. char WorkStr[81],
  600.      AlphaStr[81],
  601.      NumStr[81];
  602. unsigned char Switch;
  603.  
  604. clrscr();
  605.  
  606. strcpy(WorkStr,"The procedure S_DisplayField can be used to display any value any where");
  607. s_displayscreenfield(4,1,9,80,strlen(WorkStr),LIGHTGRAY,BLACK,0,0,WorkStr);
  608.  
  609. strcpy(WorkStr,"on the screen.  Alpha fields are displayed like these messages while numeric");
  610. s_displayscreenfield(5,1,9,80,strlen(WorkStr),LIGHTGRAY,BLACK,0,0,WorkStr);
  611.  
  612. strcpy(WorkStr,"values are displayed right justified like:");
  613. s_displayscreenfield(6,1,9,42,strlen(WorkStr),LIGHTGRAY,BLACK,0,0,WorkStr);
  614.  
  615. strcpy(WorkStr,"1");
  616. s_displayscreenfield(6,43,0,10,strlen(WorkStr),LIGHTGRAY,BLACK,0,0,WorkStr);
  617.  
  618. strcpy(WorkStr,"2.1");
  619. s_displayscreenfield(7,43,2,10,strlen(WorkStr),LIGHTGRAY,BLACK,0,0,WorkStr);
  620.  
  621. strcpy(WorkStr,"3.12");
  622. s_displayscreenfield(8,43,3,10,strlen(WorkStr),LIGHTGRAY,BLACK,0,0,WorkStr);
  623.  
  624. strcpy(WorkStr,"4.123");
  625. s_displayscreenfield(9,43,4,10,strlen(WorkStr),LIGHTGRAY,BLACK,0,0,WorkStr);
  626.  
  627. strcpy(WorkStr,"5.1234");
  628. s_displayscreenfield(10,43,5,10,strlen(WorkStr),LIGHTGRAY,BLACK,0,0,WorkStr);
  629.  
  630. strcpy(WorkStr,"Likewise, S_EditString can be used to open a data entry field any where on");
  631. s_displayscreenfield(21,1,9,80,strlen(WorkStr),YELLOW,BLACK,0,0,WorkStr);
  632.  
  633. strcpy(WorkStr,"the screen. All of Turbo ScrEdit`s field editing features including help");
  634. s_displayscreenfield(22,1,9,80,strlen(WorkStr),YELLOW,BLACK,0,0,WorkStr);
  635.  
  636. strcpy(WorkStr,"messages and edit masks can be used with these fields.");
  637. s_displayscreenfield(23,1,9,80,strlen(WorkStr),YELLOW,BLACK,0,0,WorkStr);
  638.  
  639. strcpy(WorkStr,"<ESC> return to menu or type Alpha:             Numeric:");
  640. s_displayscreenfield(24,1,9,80,strlen(WorkStr),YELLOW,BLACK,0,0,WorkStr);
  641.  
  642. AlphaStr[0]=0;
  643. NumStr[0]  =0;  
  644. Switch     =0;
  645. s_usermask[0]= 0;
  646. while (!s_esc)        
  647.     {
  648.     if  (!Switch)
  649.     {
  650.     strcpy(s_usermask,"($$$)-(33)");
  651.     strcpy(s_userhelp,"This demostrates a free form alpha numeric field entry.");
  652.     s_tabatendoffield = 1;    
  653.     s_editstring(24,37,9,10,BLACK,LIGHTGRAY,YELLOW,BLACK,WHITE,BLUE,AlphaStr);
  654.     s_tabatendoffield = 0;
  655.     if ((s_tab)||(s_enter))
  656.         Switch = 1;
  657.     }
  658.     if  (Switch)
  659.     {
  660.     strcpy(s_usermask,"User Mask are ignored on numeric fields");
  661.     strcpy(s_userhelp,"This demonstrates a free from numeric field with two decimal places.");
  662.     s_editstring(24,59,3,10,BLACK,LIGHTGRAY,YELLOW,BLACK,WHITE,BLUE,NumStr);
  663.     if ((s_tab)||(s_enter))
  664.         Switch = 0;
  665.     }
  666.     }
  667. s_usermsg[0]  = 0;
  668. s_userhelp[0] = 0;
  669. s_tabatendoffield = 0;
  670. }
  671.  
  672.  
  673.  
  674.  
  675. void ScrDemo_Init()
  676. {
  677. s_openscreenfile("ScrDemo.SCR");
  678. initialize_Demo_Menu_buf();
  679. initialize_Dupe_Fields_buf();
  680.  
  681. textbackground(BLACK);
  682. textcolor     (GREEN);
  683.  
  684.  
  685. s_errorsound = 1;
  686. s_errorfreq  = 300;
  687. s_errordur   = 100;
  688. s_helpsound  = 1;
  689. s_helpfreq  = 400;
  690. s_helpdur   = 100;
  691. s_usersound  = 1;
  692. s_userfreq  = 200;
  693. s_userdur   = 100;
  694.  
  695. if (s_mono)     
  696.     {      
  697.     s_errorbg = 7;
  698.     s_errorfg = 0;
  699.     s_helpbg  = 0;
  700.     s_helpfg  = 1;
  701.     s_userbg  = 1;
  702.     s_userbg  = 0;
  703.     }
  704.  
  705. s_cursor     = S_NORMAL;/* other options S_BLOCK, S_OFF */
  706. s_sound      = 0;
  707. s_showstatus = 1;
  708. }
  709.  
  710.  
  711.  
  712. void Read_Menu_Screen()
  713. {
  714. int PrevOption, X,Y,Z;
  715. Option = 1;
  716. s_loadscreen("Demo_Menu");
  717. strcpy(Demo_Menu_buf.O1, "Example Data Entry Screen");
  718. strcpy(Demo_Menu_buf.O2, "Demo of Mouse functions");
  719. strcpy(Demo_Menu_buf.O3, "Customizing screen colors.");
  720. strcpy(Demo_Menu_buf.O4, "Free form display/data entry");
  721. strcpy(Demo_Menu_buf.O5, "Using S_ReadKey");
  722. strcpy(Demo_Menu_buf.O6, "Using S_NextKey");
  723. strcpy(Demo_Menu_buf.O7, "'Pop Up' windows demo");
  724. strcpy(Demo_Menu_buf.O8, "Mixed ScrEdit");
  725. strcpy(Demo_Menu_buf.B1, "Entry");
  726. strcpy(Demo_Menu_buf.B2, "Mouse");
  727. strcpy(Demo_Menu_buf.B3, "Colors");
  728. strcpy(Demo_Menu_buf.B4, "Free form");
  729. strcpy(Demo_Menu_buf.B5, "ReadKey");
  730. strcpy(Demo_Menu_buf.B6, "NextKey");
  731. strcpy(Demo_Menu_buf.B7, "Windows");
  732. strcpy(Demo_Menu_buf.B8, "StandardIO");
  733. strcpy(Demo_Menu_buf.P1,"1");
  734. strcpy(Demo_Menu_buf.P2,"2");
  735. strcpy(Demo_Menu_buf.P3,"3");
  736. strcpy(Demo_Menu_buf.P4,"4");
  737. strcpy(Demo_Menu_buf.P5,"5");
  738. strcpy(Demo_Menu_buf.P6,"6");
  739. strcpy(Demo_Menu_buf.P7,"7");
  740. strcpy(Demo_Menu_buf.P8,"8");
  741.  
  742. PrevOption = 9;
  743. do
  744.     {
  745.     if  (s_down) Option++;
  746.     if  (s_up)   Option--;
  747.  
  748.     if  (Option < 1) Option = 8;
  749.     if  (Option > 8) Option = 1;
  750.  
  751.     switch (Option)
  752.        {
  753.        case 1  : {
  754.            strcpy(Demo_Menu_buf.M1,"This option is a pratical example of a");
  755.            strcpy(Demo_Menu_buf.M2,"data entry screen that demonstrates how");
  756.            strcpy(Demo_Menu_buf.M3,"to use EDIT MASKS, DUPE FIELDS, AUTO");
  757.            strcpy(Demo_Menu_buf.M4,"HELP, AUTO VALIDATE, SOUND ON/OFF,");
  758.            strcpy(Demo_Menu_buf.M5,"CLEAR SCREEN, CLEAR DUPES, and CHANGING");
  759.        strcpy(Demo_Menu_buf.M6,"MESSAGE LINE COLORS.");
  760.        PrevOption = 9;
  761.        break;
  762.        }
  763.        case 2  : {
  764.            strcpy(Demo_Menu_buf.M1,"Using the MOUSE interface. This option ");
  765.            strcpy(Demo_Menu_buf.M2,"shows how to set up and use all the ");
  766.            strcpy(Demo_Menu_buf.M3,"features of the MOUSE and MOUSE DRIVER.");
  767.            strcpy(Demo_Menu_buf.M4,"How to monitor for mouse buttons being");
  768.            strcpy(Demo_Menu_buf.M5,"pressed or mouse movement. How to");
  769.            strcpy(Demo_Menu_buf.M6,"define mouse windows, and much more..");
  770.        PrevOption = 11;
  771.        break;
  772.        }
  773.        case 3  : {
  774.            strcpy(Demo_Menu_buf.M1,"This option demonstrates how to change");
  775.            strcpy(Demo_Menu_buf.M2,"the color assignments for screens, and");
  776.            strcpy(Demo_Menu_buf.M3,"screen fields 'on the fly.' With these");
  777.            strcpy(Demo_Menu_buf.M4,"procedures you can write routines that");
  778.            strcpy(Demo_Menu_buf.M5,"will make your applications custom-");
  779.            strcpy(Demo_Menu_buf.M6,"zable to the users taste. ");
  780.        PrevOption = 14;
  781.        break;
  782.        }
  783.        case 4  : {
  784.        strcpy(Demo_Menu_buf.M1,"This option demonstrates how to use    ");
  785.        strcpy(Demo_Menu_buf.M2,"S_DisplayField and S_EditString to     ");
  786.        strcpy(Demo_Menu_buf.M3,"open a field any where on the screen ");
  787.        strcpy(Demo_Menu_buf.M4,"and display data to it or accept a     ");
  788.        strcpy(Demo_Menu_buf.M5,"value from keyed in from the keyboard. ");
  789.        strcpy(Demo_Menu_buf.M6,"");
  790.        PrevOption = 17;
  791.        break;
  792.        }
  793.        case 5  : {
  794.        strcpy(Demo_Menu_buf.M1,"This option demonstates how a program");
  795.        strcpy(Demo_Menu_buf.M2,"can communicate with the user using the");
  796.        strcpy(Demo_Menu_buf.M3,"message line to display a messsage and");
  797.        strcpy(Demo_Menu_buf.M4,"wait for the user to respond by pressing");
  798.        strcpy(Demo_Menu_buf.M5,"a key. The key pressed is not echoed to");
  799.        strcpy(Demo_Menu_buf.M6,"the screen. See S_READKEY for more info");
  800.        PrevOption = 20;
  801.        break;
  802.        }
  803.        case 6  : {
  804.            strcpy(Demo_Menu_buf.M1,"This option demonstrates how S_NEXTKEY");
  805.            strcpy(Demo_Menu_buf.M2,"works. It is similar to S_READKEY");
  806.            strcpy(Demo_Menu_buf.M3,"except no message or screen fields are ");
  807.            strcpy(Demo_Menu_buf.M4,"displayed. Only the next key pressed is");
  808.            strcpy(Demo_Menu_buf.M5,"returned to your program.");
  809.        PrevOption = 23;
  810.            break;
  811.            }
  812.        case 7  : {
  813.        strcpy(Demo_Menu_buf.M1,"Demonstrates iHn System's 'POP UP'");
  814.        strcpy(Demo_Menu_buf.M2,"windows package that is included with");
  815.        strcpy(Demo_Menu_buf.M3,"the registered version of Turbo ScrEdit");
  816.        strcpy(Demo_Menu_buf.M4,"");
  817.        strcpy(Demo_Menu_buf.M5,"");
  818.        strcpy(Demo_Menu_buf.M6,"");
  819.        PrevOption = 26;
  820.            break;
  821.            }
  822.        case 8 : {
  823.        strcpy(Demo_Menu_buf.M1,"This demonstrates how you can exit a");
  824.        strcpy(Demo_Menu_buf.M2,"procedure using a Turbo ScrEdit screen");
  825.        strcpy(Demo_Menu_buf.M3,"to use your language's standard screen");
  826.        strcpy(Demo_Menu_buf.M4,"I/O statements such as clrscr, cprint,");
  827.        strcpy(Demo_Menu_buf.M5,"scanf, ect. To resume right were you");
  828.        strcpy(Demo_Menu_buf.M6,"left off us S_REFRESHSCREEN and go on.");
  829.        PrevOption = 29;
  830.        }
  831.        }
  832.  
  833.  
  834.        s_changefieldcolor(Option-1,2,7,0);
  835.        s_changefieldcolor(PrevOption,2,7,0);
  836.        s_readkey();
  837.        s_changefieldcolor(Option-1,2,0,14);
  838.        s_changefieldcolor(PrevOption,2,0,14);
  839.  
  840.        if (s_left)  s_up = 1;   
  841.        if (s_right) s_down = 1;    
  842.  
  843.        if  ((isdigit(s_ch))&&(s_ch!='0'))
  844.        {
  845.        Option = s_ch-48;
  846.        }   
  847.        if  ((s_fkey)||(s_ch!=0))
  848.        {
  849.        if  (s_enter)
  850.            {
  851.            if  (Option==1)
  852.            {
  853.            RecordDemo();
  854.            s_loadscreen("Demo_Menu");
  855.            }
  856.            if  (Option == 3)
  857.            {
  858.            initialize_Color_Demo_buf();
  859.            s_loadscreen("Color_Demo");
  860.            ChangeColors();
  861.            s_loadscreen("Demo_Menu");
  862.            }
  863.            if  (Option == 4)
  864.            {
  865.            while (!s_esc) ProcessScreen();
  866.            s_loadscreen("Demo_Menu");
  867.            }
  868.            if  (Option == 5)
  869.            {
  870.            strcpy(s_usermsg,
  871.               "Demo of S_READKEY - Press 'C' key to continue");
  872.            do{
  873.                s_readkey();
  874.                strcpy(s_usermsg,
  875.                   "OOPS!! wrong key - Press 'C' key to continue");
  876.              } while ((s_ch!='C')&&(s_ch!='c'));
  877.  
  878.            strcpy(s_usermsg," 'C' has been pressed - You may continue");
  879.            }
  880.            if  (Option == 6)
  881.            {
  882.            for (X=1;X<7;X++){
  883.                gotoxy(39,14+X);
  884.                cprintf("                                         ");}
  885.            gotoxy(39,17);
  886.            cprintf(" << OKAY PRESS A SHIFT C to CONTINUE >>");
  887.            do{
  888.               s_nextkey();
  889.               s_ch = toupper(s_ch);
  890.              } while (!((s_shift)&&(s_ch=='C')));
  891.            }
  892.            if  ((Option == 2)||(Option==7))
  893.            {
  894.            s_setcursor(S_NORMAL);
  895.            if (Option == 2)
  896.                Result = spawnl(P_WAIT,"DemoWind.exe","DemoWind.exe","/M",NULL);
  897.            else
  898.                Result = spawnl(P_WAIT,"DemoWind.exe","DemoWind.exe","/W",NULL);
  899.            s_setcursor(S_OFF);
  900.            if (Result == -1)
  901.               {
  902.               switch (errno)
  903.             {
  904.             case ENOENT:
  905.               {
  906.               strcpy(s_usermsg," 'DemoWind.Exe' not found! ");
  907.               break;
  908.               }
  909.             case ENOMEM:
  910.               {
  911.               strcpy(s_usermsg," Not enough memeory to run windows demo. ");
  912.               break;
  913.               }
  914.             }
  915.               }
  916.            else
  917.              strcpy(s_usermsg," End of Windows Demo ");
  918.            }
  919.            if  (Option == 8)
  920.            {
  921.            Back_To_Turbo_C_Land();
  922.            s_refreshscreen();
  923.            }
  924.            s_showstatus = 1;
  925.            s_resetkeyflags();
  926.            }
  927.        }
  928.        else
  929.      strcpy(s_usermsg," Only UP and DOWN arrows and ENTER and ESC are valid");
  930.     }
  931. while (!s_esc);
  932. }
  933.  
  934. /*****************************
  935.  
  936. PROGRAM BEGINS HERE
  937.  
  938. *****************************/
  939.  
  940. void main()
  941. {
  942. delay(0);
  943. ScrDemo_Init();
  944. while (!s_esc) Read_Menu_Screen();
  945. s_closescreenfile();
  946. gotoxy(1,24);
  947. cprintf("\n\r");
  948. }
  949.